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-- ListUsing.mesa; modified by Sweet, May 10, 1978 10:27 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
BcdDefs: FROM "bcddefs", 
CommanderDefs : FROM "commanderdef s" , 
IODefs: FROM "iodefs", 
ListerDefs: FROM "1 isterdef s" , 
OutputDefs: FROM "outputdef s" , 
SegmentDefs: FROM "segmentdef s" , 
StringDefs: FROM "stringdef s" , 
StreamDefs: FROM "streamdef s" , 
SymbolTableDefs: FROM "symbol tabledefs" , 
SymDefs: FROM "symdefs", 
SystemDefs: FROM "systemdef s" ; 

ListUsing: PROGRAM IMPORTS CommanderDefs, IODefs, ListerDefs, OutputDefs, SegmentDefs, StreamDefs, Stri 
**ngDefs, SymbolTableDefs, SystemDefs a 

BEGIN OPEN ListerDefs, OutputDefs, SymDefs; 

FileSegmentHandle: TYPE « SegmentDefs . FileSegmentHandle; 

FileHandle: TYPE ■ SegmentDefs . FileHandle; 

symbols : SymbolTableDef s. Symbol Tab! eB as e; 

PutSubStringLC: PROCEDURE [ss: StringDefs .Substring] » 
BEGIN 

i: CARDINAL; 
cl: CHARACTER; 
FOR i IN [0. .ss. length) DO 

cl *- ss . base[ss .of f set+i]; 

IF cl IN ['A..'Z] THEN cl «- cl ~'A+'a; 

PutChar[cl]; 

ENDLOOP; 
END; 

CompareNames: PROCEDURE [nl, n2: StringDefs .Substring] RETURNS [INTEGER] » 
BEGIN 

i: CARDINAL; 
Cl, c2: CHARACTER; 

FOR i IN [0. .MIN[nl. length, n2. length]) DO 
cl *- nl.base[nl.of fset+i]; 
c2 ♦■ n2.base[n2.offset+i]; 
IF cl IN ['A..'Z] THEN cl <- cl -'A+'a; 
IF c2 IN ['A..'Z] THEN c2 <- c2 -'A+'a; 
SELECT cl-c2 FROM 
<0 = > RETURN [-1]; 
>0 => RETURN [1]; 
ENDCASE; 
ENDLOOP; 
SELECT INTEGER[nl. length - n2. length] FROM 
<0 => RETURN [-1]; 
>0 = > RETURN [1]; 
ENDCASE => RETURN [0]; 
END; 

SortNames: PROCEDURE [na: DESCRIPTOR FOR ARRAY OF StringDefs .SubStringDescriptor] * 
BEGIN 

i: CARDINAL; 
j: INTEGER; 

key: StringDefs .SubStringDescriptor; 
FOR i IN [1. .LENGTH[na]) DO 

key <- na[i]; 

j *- i - 1 ; 

WHILE j >= AND CompareNames[@na[ j] , @key]>0 DO 
na[j + l] <- na[j]; j <~ j-1; ENDLOOP; 

na[j + l] «- key; 

ENDLOOP; 
END; 

GenCtx: PROCEDURE [ctx: SymDefs .CTXIndex, p : PROCEDURE [SymDefs . ISEIndex]] - 
BEGIN OPEN symbols; 
sei: SymDefs. ISEIndex; 
FOR sei <- FirstCtxSe[ctx], NextSe[sei] UNTIL sei - SENull DO 

p[sei]; ENDLOOP; 
END; 
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PrintUsing: PROCEDURE « 

BEGIN OPEN SymDefs, symbols; 

bti: BTIndex; 

ctx: CTXIndex; 

sei: ISEIndex; 

i, n, idir, ndir: CARDINAL; 

first: BOOLEAN <- TRUE; 

desc: StringDefs .SubStringDescriptor ; 

modname: StringDefs .Substring ■ @desc; 

mname: StringDefs .Substring ; 

DirRec: TYPE ■ RECORD [dirname: StringDefs .SubStringDescriptor , dirsei: ISEIndex]; 

da: DESCRIPTOR FOR ARRAY OF DirRec; 

na: DESCRIPTOR FOR ARRAY OF StringDefs .SubStringDescriptor; 

countids: PROCEDURE [ISEIndex] ■ BEGIN n 4- n +l; END; 

insertid: PROCEDURE [sei: ISEIndex] « 

BEGIN OPEN symbols; 

SubStringForHash[@na[i], (seb+sei).htptr]; 

i *- i+1; 

END; 

PutCR[]; 

ndir <- 0; 

FOR sei «- FirstCtxSe[stHandle.directoryCtx], NextSe[sei] 
UNTIL sei = ISENull DO 
ndir «- ndir+1; 
ENDLOOP; 
IF ndir - THEN RETURN; 
da «- DESCRIPTOR[ 

SystemDef s.Al locateHeapNode[ 

SIZE[DirRec]*ndir], 
ndir]; 
ndir «- 0; 

FOR sei <- FirstCtxSe[stHandle.directoryCtx] , NextSe[sei] 
UNTIL sei ■ ISENull DO 
BEGIN i: INTEGER <- ndir-1; 
SubStringForHash [modname, (seb+sei).htptr]; 
WHILE i >= AND CompareNames[@da[i] . dirname, modname]>0 DO 

da[i + l] <- da[i]; i «- i-1; ENDLOOP; 
da[i+l] <- [modnamet, sei]; 
ndir <- ndir+1; 
END; 

ENDLOOP; 
FOR idir IN [0. .ndir) DO 
mname <- @da[idir]. dirname; sei «- da[idir] . dirsei ; 
WITH (seb+UnderType[(seb+sei).idtype]) SELECT FROM 
definition = > 
BEGIN 

isei: ISEIndex; 
ctx *- defCtx; 

FOR isei «- FirstCtxSe[stHandle. importCtx] , NextSe[isei] 
UNTIL isei - ISENull DO 
WITH (seb+UnderType[(seb+isei).idtype]) SELECT FROM 
definition «> 

WITH (ctxb+defCtx) SELECT FROM 

imported ~> IF includeLink = ctx THEN 

BEGIN ctx «- defCtx; EXIT END; 
ENDCASE; 
ENDCASE; 
ENDLOOP; 
END; 
transfer »> 
BEGIN 

bti *- (seb+sei ) . idinfo; 
ctx <~ (bb+bti) .localCtx; 
END; 
ENDCASE => ERROR; 
n 4- 0; 

GenCtx[ctx, countids]; 
WITH (ctxb+ctx) SELECT FROM 
included -> NULL; 

imported ■> GenCtx[includeLink, countids]; 
ENDCASE *> LOOP; — main body 
IF n > THEN na «- DESCRIPTOR 

SyslemDef s . Al iocatelleapNode[ 



1 istusing .mesa 2-Sep-78 18:18:51 Page 



SIZE[StringDefs.SubStringDescriptor]*n], 

n]i 
i 4- 0; 

GenCtx[ctx, insertid]; 
WITH (ctxb+ctx) SELECT FROM 

imported *> GenCtx[includeLink, insertid]; 
ENDCASE; 
IF first THEN PutStr ing[ M DIRECTORY M ] 
ELSE PutChar[\]; 
PutCR[]; 

first *- FALSE; PutString[ M "]; 
PutSubString[mname]; PutString[": FROM ,,MM ]; 
PutSubStringLC[mname]; PutChar[ • "] ; 
IF n > THEN 
BEGIN 

SortNames[na]; 
PutString[" USING ["]; 
PutSubString[@na[0]]; 
FOR i IN (0. .LENGTH[na]) DO 
PutString[\ ••]; 
PutSubString[@na[i]]; 
ENDLOOP; 
PutChar[']]; 

SystemDefs.FreeHeapNode[BASE[na]]; 
END; 
ENDLOOP; 
SystemDefs.FreeHeapNode[BASE[da]]; 
PutChar[';]; PutCR[]; PutCR[]; PutCR[]; 
RETURN 
END; 

UsingList: PROCEDURE [cmd: STRING] ■ 
BEGIN OPEN StringDefs, StreamDefs; 
s: STRING <- [50]; 
ch: CHARACTER; 

cs: StreamHandle «- NewByteStream[cmd , Read]; 
UNTIL cs.endof[cs] DO 

s. length «- 0; 

WHILE ~cs.endof[cs] AND (ch <- cs.get[cs]) # ' DO AppendChar[s, ch]; ENDLOOP; 

IF s. length > THEN BEGIN IODef s .Wr iteLine[s] ; Using[s]; END; 

ENDLOOP; 
cs .destroy[cs]; 
END; 

Using: PROCEDURE[root : STRING] « 
BEGIN OPEN StringDefs, SegmentDefs; 
i: CARDINAL; 
defs: BOOLEAN «- FALSE; 
bcdFile: STRING +- [40]; 
sseg, cseg: FileSegmentHandle; 
AppendString[bcdFile,root]; 
FOR i IN [0. .bcdFile. length) DO 

IF bcdFile[i] = ' . THEN EXIT; 

REPEAT FINISHED => AppendString[bcdF i 1 e , " . bed"] ; 

ENDLOOP; 
BEGIN 
[code: cseg, symbols: sseg] <- Load[bcdFile I 

NoFGT => RESUME; 

NoCode => BEGIN defs «- TRUE; RESUME END; 

NoSymbols, IncorrectVersion , Mul tip! eModules »> GOTO badformat; 

SegmentDefs . FileNameError = > GOTO badname]; 
symbol s<-Symbo!Tabl eDef s . AcquireSymbolTable[ 

Symbol Tab 1eDef s .Tab! eForSegment[sseg]]; 
IF -defs THEN SegmentDefs .DeleteFil eSegment[cseg] ; 
Lister Defs .SelRoutineSymbol s[ symbols] ; 
OpenOutput[root , " . ul M ] ; 
WriteFileID[]; 
IF symbols . sourceFile # NIL THEN 

BEGIN 

PutString[" Source: "]; 

PutString[symbols. sourceFile]; 

PutCR[]; 

END; 
PrintUsing[]; 

Symbol Tab 1 eDef s . Re 1 e as eSymbol Tab le[ symbol s] ; 
SegmentDefs . Del eteFileSegment [sseg] ; 
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CloseOutput[]; 
EXITS 

badformat ■> IODef s.WriteString["Bad Formatl"]; 

badname »> lODefs .WriteString["File Not Found 1"]; 
END; 
END; 



command: Commander Def s .CommandBlockHandle; 

command «- CommanderDef s.AddCommand[" Using" , LOOPHOLE [Us i ng] ,1]; 
command. params[0] <- [type: string f< prompt : "Filename"]; 

command ♦- CommanderDef s .AddCommand[" Us ingList" ,L00PH0LE[UsingList] ,1]; 
command. params[0] <- [type: string, prompt: "Filename"]; 

END... 



